﻿Public Class frmstandardcode
    Dim _mysql As New ClsSQLhelper
    Dim Strsql As String
    Dim on_load As Boolean = True
#Region "Function"
    Sub Load_Class(Optional ByVal Cretiria As String = "")
        Try
            Strsql = "Select type_code,type_name,type_group,type_category from standard_code "
            If Cretiria <> "" Then
                Strsql = Strsql & " where Type_ID like '" & Cretiria & "%' or Type_Name like  '" & Cretiria & "%'"
            End If
            Dim DT_Section As New DataTable
            DT_Section = _mysql.GetMYSQLDataTable(Strsql, "standard_code")
            With GridType
                .DataSource = DT_Section

            End With
            Me.GridColumn1.FieldName = "type_code"
            Me.GridColumn2.FieldName = "type_name"
            Me.GridColumn3.FieldName = "type_group"
            Me.GridColumn4.FieldName = "type_category"

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
#End Region
    Private Sub frmstandardcode_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Load_Class()
    End Sub

    Private Sub GridType_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GridType.Click

    End Sub
End Class